SEFAZ do Pará altera web services autorização NF-e
Enviado: 20 Ago 2019 14:53
Segue link com a matéria : https://blog.tecnospeed.com.br/sefaz-do ... RD+Station
Quando alterar, mover "PA" pro CASE de cima, de SVRS.
Código: Selecionar todos
STATIC FUNCTION SoapUrlNfe( aSoapList, cUF, cVersao )
LOCAL nPos, cUrl
nPos := AScan( aSoapList, { | e | cUF == e[ 1 ] .AND. cVersao == e[ 2 ] } )
IF nPos != 0
cUrl := aSoapList[ nPos, 3 ]
ENDIF
DO CASE
CASE ! Empty( cUrl )
CASE cUf $ "AC,AL,AP,DF,ES,PB,RJ,RN,RO,RR,SC,SE,TO"
cURL := SoapURLNFe( aSoapList, "SVRS", cVersao )
CASE cUf $ "MA,PA,PI"
cURL := SoapUrlNFe( aSoapList, "SVAN", cVersao )
ENDCASE
RETURN cUrl