/* ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³TransmiteNF ºAutor ³ º Data ³ 17/04/2012 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºDesc. ³Transmite a nota º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºUso ³ º±± ±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ /*************************/ User Function TransmiteNF() /*************************/ Local cURL := PadR(GetNewPar("MV_SPEDURL","http://"),250) Local aArea := GetArea() Local cSerie := SF2->F2_SERIE Local cNotaIni := SF2->F2_DOC Local cNotaFim := SF2->F2_DOC Local lCTe := .T. Local lRetorno := .F. Local cModalidade := "" Local cVersao := "" cIdEnt := GetIdEnt() oWS := WsSpedCfgNFe():New() oWS:cUSERTOKEN := "TOTVS" oWS:cID_ENT := cIdEnt oWS:nAmbiente := 0 oWS:_URL := AllTrim(cURL)+"/SPEDCFGNFe.apw" lOk := oWS:CFGAMBIENTE() cAmbiente := oWS:cCfgAmbienteResult //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Obtem a modalidade de execucao do Totvs Services SPED ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If lOk oWS:cUSERTOKEN := "TOTVS" oWS:cID_ENT := cIdEnt oWS:nModalidade:= 0 oWS:_URL := AllTrim(cURL)+"/SPEDCFGNFe.apw" lOk := oWS:CFGModalidade() cModalidade := oWS:cCfgModalidadeResult EndIf //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Obtem a versao de trabalho da NFe do Totvs Services SPED ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If lOk oWS:cUSERTOKEN := "TOTVS" oWS:cID_ENT := cIdEnt oWS:cVersao := "0.00" oWS:_URL := AllTrim(cURL)+"/SPEDCFGNFe.apw" lOk := oWS:CFGVersao() cVersao := oWS:cCfgVersaoResult EndIf SpedNFeTrf(aArea[1],cSerie,cNotaIni,cNotaFim,cIdEnt,cAmbiente,cModalidade,cVersao,.T., lCTe) nTam:= 1000000 SetRegua( ntam ,"Transmitindo a Nota Fiscal") For i=1 to nTam IncRegua("Transmitindo a Nota Fiscal") Next Return /* ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³GetIdEnt ºAutor º Data ³ 17/04/2012 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºDesc. ³Recupera o numero do indentificador da filial º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºUso ³ º±± ±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ /************************/ Static Function GetIdEnt() /************************/ Local aArea := GetArea() Local cIdEnt := "" Local cURL := PadR(GetNewPar("MV_SPEDURL","http://"),250) Local oWs //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Obtem o codigo da entidade ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ oWS := WsSPEDAdm():New() oWS:cUSERTOKEN := "TOTVS" oWS:oWSEMPRESA:cCNPJ := IIF(SM0->M0_TPINSC==2 .Or. Empty(SM0->M0_TPINSC),SM0->M0_CGC,"") oWS:oWSEMPRESA:cCPF := IIF(SM0->M0_TPINSC==3,SM0->M0_CGC,"") oWS:oWSEMPRESA:cIE := SM0->M0_INSC oWS:oWSEMPRESA:cIM := SM0->M0_INSCM oWS:oWSEMPRESA:cNOME := SM0->M0_NOMECOM oWS:oWSEMPRESA:cFANTASIA := SM0->M0_NOME oWS:oWSEMPRESA:cENDERECO := FisGetEnd(SM0->M0_ENDENT)[1] oWS:oWSEMPRESA:cNUM := FisGetEnd(SM0->M0_ENDENT)[3] oWS:oWSEMPRESA:cCOMPL := FisGetEnd(SM0->M0_ENDENT)[4] oWS:oWSEMPRESA:cUF := SM0->M0_ESTENT oWS:oWSEMPRESA:cCEP := SM0->M0_CEPENT oWS:oWSEMPRESA:cCOD_MUN := SM0->M0_CODMUN oWS:oWSEMPRESA:cCOD_PAIS := "1058" oWS:oWSEMPRESA:cBAIRRO := SM0->M0_BAIRENT oWS:oWSEMPRESA:cMUN := SM0->M0_CIDENT oWS:oWSEMPRESA:cCEP_CP := Nil oWS:oWSEMPRESA:cCP := Nil oWS:oWSEMPRESA:cDDD := Str(FisGetTel(SM0->M0_TEL)[2],3) oWS:oWSEMPRESA:cFONE := AllTrim(Str(FisGetTel(SM0->M0_TEL)[3],15)) oWS:oWSEMPRESA:cFAX := AllTrim(Str(FisGetTel(SM0->M0_FAX)[3],15)) oWS:oWSEMPRESA:cEMAIL := UsrRetMail(RetCodUsr()) oWS:oWSEMPRESA:cNIRE := SM0->M0_NIRE oWS:oWSEMPRESA:dDTRE := SM0->M0_DTRE oWS:oWSEMPRESA:cNIT := IIF(SM0->M0_TPINSC==1,SM0->M0_CGC,"") oWS:oWSEMPRESA:cINDSITESP := "" oWS:oWSEMPRESA:cID_MATRIZ := "" oWS:oWSOUTRASINSCRICOES:oWSInscricao := SPEDADM_ARRAYOFSPED_GENERICSTRUCT():New() oWS:_URL := AllTrim(cURL)+"/SPEDADM.apw" If oWs:ADMEMPRESAS() cIdEnt := oWs:cADMEMPRESASRESULT Else Aviso("SPED",IIf(Empty(GetWscError(3)),GetWscError(1),GetWscError(3)),{"Identidade"},3) EndIf RestArea(aArea) Return(cIdEnt) /* ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³ImpDanf1 ºAutor º Data ³ 17/04/2012 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºDesc. ³Imprime DANFE º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºUso ³ º±± ±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ /******************************/ User Function ImpDanf1() /******************************/ Local cIdEnt := GetIdEnt() Local aIndArq := {} Local oDanfe Local nHRes := 0 Local nVRes := 0 Local nDevice Local cFilePrint := "DANFE_"+cIdEnt+Dtos(MSDate())+StrTran(Time(),":","") Local oSetup Local aDevice := {} Local cSession := GetPrinterSession() Local nRet := 0 Local aParam := {Space(Len(SF2->F2_SERIE)),Space(Len(SF2->F2_DOC)),Space(Len(SF2->F2_DOC)),Space(60),CToD(""),CToD(""),Space(14),Space(14)} If findfunction("U_DANFE_V") nRet := U_Danfe_v() EndIf AADD(aDevice,"DISCO") // 1 AADD(aDevice,"SPOOL") // 2 AADD(aDevice,"EMAIL") // 3 AADD(aDevice,"EXCEL") // 4 AADD(aDevice,"HTML" ) // 5 AADD(aDevice,"PDF" ) // 6 nLocal := If(GetProfString(cSession,"LOCAL","SERVER",.T.)=="SERVER",1,2 ) nOrientation := If(GetProfString(cSession,"ORIENTATION","PORTRAIT",.T.)=="PORTRAIT",1,2) cDevice := GetProfString(cSession,"PRINTTYPE","SPOOL",.T.) nPrintType := aScan(aDevice,{|x| x == cDevice }) If IsReady() //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Obtem o codigo da entidade ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nRet >= 20100824 lAdjustToLegacy := .F. // Inibe legado de resolução com a TMSPrinter oDanfe := FWMSPrinter():New(cFilePrint, 1, lAdjustToLegacy, /*cPathInServer*/, .T.) // ---------------------------------------------- // Cria e exibe tela de Setup Customizavel // OBS: Utilizar include "FWPrintSetup.ch" // ---------------------------------------------- //nFlags := PD_ISTOTVSPRINTER+ PD_DISABLEORIENTATION + PD_DISABLEPAPERSIZE + PD_DISABLEPREVIEW + PD_DISABLEMARGIN nFlags := PD_ISTOTVSPRINTER + PD_DISABLEPAPERSIZE + PD_DISABLEPREVIEW + PD_DISABLEMARGIN If ( !oDanfe:lInJob ) oSetup := FWPrintSetup():New(nFlags, "DANFE") // ---------------------------------------------- // Define saida // ---------------------------------------------- oSetup:SetPropert(PD_PRINTTYPE , nPrintType) oSetup:SetPropert(PD_ORIENTATION , nOrientation) oSetup:SetPropert(PD_DESTINATION , nLocal) oSetup:SetPropert(PD_MARGIN , {60,60,60,60}) oSetup:SetPropert(PD_PAPERSIZE , 2) EndIf // ---------------------------------------------- // Pressionado botão OK na tela de Setup // ---------------------------------------------- If oSetup:Activate() == PD_OK // PD_OK =1 //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Salva os Parametros no Profile ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ WriteProfString( cSession, "LOCAL" , If(oSetup:GetProperty(PD_DESTINATION)==1 ,"SERVER" ,"CLIENT" ), .T. ) WriteProfString( cSession, "PRINTTYPE" , If(oSetup:GetProperty(PD_PRINTTYPE)==1 ,"SPOOL" ,"PDF" ), .T. ) WriteProfString( cSession, "ORIENTATION", If(oSetup:GetProperty(PD_ORIENTATION)==1 ,"PORTRAIT" ,"LANDSCAPE" ), .T. ) If oSetup:GetProperty(PD_ORIENTATION) == 1 //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Danfe Retrato DANFEII.PRW ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ u_PrtNfeSef(cIdEnt,,,oDanfe, oSetup, cFilePrint,.T.) Endif Endif Endif Endif Return /* ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³IsReady ºAutor ³Experfite º Data ³ 17/04/2012 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºDesc. ³IsReady º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºUso ³ º±± ±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ Static Function IsReady(cURL,nTipo,lHelp) Local nX := 0 Local cHelp := "" Local oWS Local lRetorno := .F. DEFAULT nTipo := 1 DEFAULT lHelp := .F. If !Empty(cURL) .And. !PutMV("MV_SPEDURL",cURL) RecLock("SX6",.T.) SX6->X6_FIL := xFilial( "SX6" ) SX6->X6_VAR := "MV_SPEDURL" SX6->X6_TIPO := "C" SX6->X6_DESCRIC := "URL SPED NFe" MsUnLock() PutMV("MV_SPEDURL",cURL) EndIf SuperGetMv() //Limpa o cache de parametros - nao retirar DEFAULT cURL := PadR(GetNewPar("MV_SPEDURL","http://"),250) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Verifica se o servidor da Totvs esta no ar ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ oWs := WsSpedCfgNFe():New() oWs:cUserToken := "TOTVS" oWS:_URL := AllTrim(cURL)+"/SPEDCFGNFe.apw" If oWs:CFGCONNECT() lRetorno := .T. Else If lHelp Aviso("SPED",IIf(Empty(GetWscError(3)),GetWscError(1),GetWscError(3)),{"STR0114"},3) EndIf lRetorno := .F. EndIf //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Verifica se o certificado digital ja foi transferido ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nTipo <> 1 .And. lRetorno oWs:cUserToken := "TOTVS" oWs:cID_ENT := GetIdEnt() oWS:_URL := AllTrim(cURL)+"/SPEDCFGNFe.apw" If oWs:CFGReady() lRetorno := .T. Else If nTipo == 3 cHelp := IIf(Empty(GetWscError(3)),GetWscError(1),GetWscError(3)) If lHelp .And. !"003" $ cHelp Aviso("SPED",cHelp,{"STR0114"},3) lRetorno := .F. EndIf Else lRetorno := .F. EndIf EndIf EndIf //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³Verifica se o certificado digital ja foi transferido ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If nTipo == 2 .And. lRetorno oWs:cUserToken := "TOTVS" oWs:cID_ENT := GetIdEnt() oWS:_URL := AllTrim(cURL)+"/SPEDCFGNFe.apw" If oWs:CFGStatusCertificate() If Len(oWs:oWSCFGSTATUSCERTIFICATERESULT:OWSDIGITALCERTIFICATE) > 0 For nX := 1 To Len(oWs:oWSCFGSTATUSCERTIFICATERESULT:OWSDIGITALCERTIFICATE) If oWs:oWSCFGSTATUSCERTIFICATERESULT:OWSDIGITALCERTIFICATE[nx]:DVALIDTO-30 <= Date() Aviso("SPED","STR0127"+Dtoc(oWs:oWSCFGSTATUSCERTIFICATERESULT:OWSDIGITALCERTIFICATE[nX]:DVALIDTO),{"STR0114"},3) //"O certificado digital irá vencer em: " EndIf Next nX EndIf EndIf EndIf Return(lRetorno)