Perguntas Ponto de Entrada QIEIMPRL - Integração com QIE

Luiz,

O código do fornecedor definimos com 8 dígitos, devido ao radical do CNPJ. E a loja com 4 dígitos, parte do CNPJ.

Ex: CNPJ 13884068/0001-22
13884068 - radical CNPJ = Código fornecedor
0001 - parte do CNPJ = loja

Vou testar e te retorno.

Obrigado.

Luiz,

Não deu certo!

A nota continua integrando com a rotina QIEA215 - Resultados - tabela QEK.

Pensei em uma forma de dar um skip na rotina QIEA215 para não integrar a Nota.

Luiz, boa tarde!

Utilizei o Break e somente está gravando na SF1/SD1 e não grava na QEK perfeito.
Só que quando saio da rotina MATA103 dá erro de controle de transações....

THREAD ERROR ([46500], diego-martins, BRAHDD0R23) 23/03/2021 12:38:01
A rotina não pode ser encerrada pois o controle de transações está habilitado e existem transações pendentes no programa MATA103, Pilha de chamadas: A103NFISCAL(), on __EXECUTE(APLIB090.PRW) 04/12/2020 09:31:39 line : 790

Segue alteração no ponto de entrada.

User Function QIEIMPRL ()

Local _nCod := aScan(aHeader,{|x|UPPER(Alltrim(x[2])) == "D1_COD"})
Local _nLoc := Posicione("SB1",1,xfilial("SB1")+SD1->D1_COD,"B1_LOCPAD")
Local _nCodFor := Posicione("SA2",1,xfilial("SA2")+SD1->D1_FORNECE,"A2_COD")

If SF1->F1_TIPO $ "N"
For _nx:= 1 to Len(Acols)
SB1->(DbSeek(xFilial("SB1")+Acols[_nx][_nCod]))
IF _nCodFor == "13884068"
RECLOCK("SD1",.F.)
SD1->D1_LOCAL := _nLoc
SD1->(MsUnLock())
Endif
Break
Next _nx

Endif

Return

Luiz,

Consegui utilizando o comando EXIT.
Sucesso. Valeu brother.

User Function QIEIMPRL ()

Local _nCod := aScan(aHeader,{|x|UPPER(Alltrim(x[2])) == "D1_COD"})
Local _nLoc := Posicione("SB1",1,xfilial("SB1")+SD1->D1_COD,"B1_LOCPAD")
Local _nCodFor := Posicione("SA2",1,xfilial("SA2")+SD1->D1_FORNECE,"A2_COD")

If SF1->F1_TIPO $ "N"
For _nx:= 1 to Len(Acols)
SB1->(DbSeek(xFilial("SB1")+Acols[_nx][_nCod]))
IF _nCodFor == "13884068"
RECLOCK("SD1",.F.)
SD1->D1_LOCAL := _nLoc
SD1->(MsUnLock())
Endif
Exit
Next _nx

Endif

Return