Estou usando minigui extended 2.5.2 com harbour. O problema no meu ponto de vista está no conteúdo do xml, pois retorna erro não identificado
Na chamada da função abaixo é enviado: CancelarSATSWEDA([CFe] + cChave)
Código: Selecionar todos
FUNCTION CancelarSATSWEDA(cChave)
Local nCfe := Random(999999)
Local cXmlCanc:= [TesteCanc] + strzero(nCfe, 6) + [.xml], nHandle:= 0, aRetorno:= {}
nHandle:= Fcreate(cXmlCanc, 0)
Fwrite(nHandle, [<CFeCanc>] + CRLF)
Fwrite(nHandle, [<infCFe chCanc="] + cChave + [">] + CRLF)
Fwrite(nHandle, [<ide>] + CRLF)
Fwrite(nHandle, [<CNPJ>10229311000180</CNPJ>] + CRLF)
Fwrite(nHandle, [<signAC>] + alltrim(ParametrosCancelaSAT->CHCLI) + [</signAC>] + CRLF)
Fwrite(nHandle, [<numeroCaixa>001</numeroCaixa>] + CRLF)
Fwrite(nHandle, [</ide>] + CRLF)
Fwrite(nHandle, [<emit>] + [</emit>] + CRLF)
Fwrite(nHandle, [<dest>] + [</dest>] + CRLF)
Fwrite(nHandle, [<total>] + [</total>] + CRLF)
Fwrite(nHandle, [<infAdic>] + [</infAdic>] + CRLF)
Fwrite(nHandle, [</infCFe>] + CRLF)
Fwrite(nHandle, [</CFeCanc>] + CRLF)
Fclose(cXmlCanc)
aRetorno:= CancelarUltimaVenda(nCfe, alltrim(ParametrosCancelaSAT->CODATIV), cChave, cXmlCanc)
If [SUCESSO] $ UPPER(aRetorno[4])
MsgInfo([Cancelamento executado com sucesso.])
Else
MsgStop([Erro no Cancelamento.] + CRLF + aRetorno[1] + CRLF + aRetorno[2] + aRetorno[3] + CRLF + aRetorno[4], [Erro])
Endif
RETURN NIL
Function CancelarUltimaVenda(nNumeroSessao, cCodigoAtivacao, chaveAcesso, cDados)
Local cString:= SATCANCELARULTIMAVENDA(nNumeroSessao, cCodigoAtivacao, chaveAcesso, cDados), aString:= HB_ATOKENS(cString, [|])
Return (Iif(Valtype(aString) # [A] .or. len(aString) < 1, {[0], [], [SAT-CFe: Sem Retorno], [], []}, aString))

