Perguntas TRANSFERENCIA AUTOMATICA

Pessoal, Boa Tarde!

Alguém conhece algum Ponto Entrada para Transferências(MATA260), ou tem algum exemplo?


Obrigado!
Henry

Pessoal, Bom dia!

Alguém sabe como executo fuction do Protheus dentro de minha usar fuction. Abaixo o que estou tentando fazer.

#Include "Protheus.ch"
#Include "TopConn.ch"
#Include "Colors.ch"


User function MT260()

//-Pega a variavel que identifica se o calculo do custo e' : -
//-O = On-Line -
//-M = Mensal
PRIVATE cCusMed := GetMv("MV_CUSMED")
PRIVATE cCadastro := "Cad"//OemToAnsi(STR0001)
PRIVATE aRegSD3 := {}



//Verifica se o custo medio e calculado On-Line -
If cCusMed == "O"
PRIVATE nHdlPrv // Endereco do arquivo de contra prova dos lanctos cont.
PRIVATE lCriaHeader := .T. // Para criar o header do arquivo Contra Prova
PRIVATE cLoteEst // Numero do lote para lancamentos do estoque
//

---

//-Posiciona numero do Lote para Lancamentos do Faturamento -
//

---

dbSelectArea("SX5")
dbSeek(xFilial()+"09EST")
cLoteEst:=IIF(Found(),Trim(X5Descri()),"EST ")
PRIVATE nTotal := 0 // Total dos lancamentos contabeis
PRIVATE cArquivo // Nome do arquivo contra prova
EndIf

//para estorno passar o 15o. paraetro com .T.
Function a260Processa(cCodOrig,cLocOrig,nQuant260,cDocto,dEmis260,nQuant260D,cNumLote,cLoteDigi,dDtValid,cNumSerie,cLoclzOrig,cCodDest,cLocDest,cLocLzDest,lEstorno,nRecOrig,nRecDest,cPrograma,cEstFis,cServico,cTarefa,cAtividade,cAnomalia,cEstDest,cEndDest,cHrInicio,cAtuEst,cCarga,cUnitiza,cOrdTar,cOrdAti,cRHumano,cRFisico,nPotencia,cLoteDest)

Return

Henry,
troca isso:
//para estorno passar o 15o. paraetro com .T.
Function a260Processa(cCodOrig,cLocOrig,nQuant260,cDocto,dEmis260,nQuant260D,cNumLote,cLoteDigi,dDtValid,cNumSerie,cLoclzOrig,cCodDest,cLocDest,cLocLzDest,lEstorno,nRecOrig,nRecDest,cPrograma,cEstFis,cServico,cTarefa,cAtividade,cAnomalia,cEstDest,cEndDest,cHrInicio,cAtuEst,cCarga,cUnitiza,cOrdTar,cOrdAti,cRHumano,cRFisico,nPotencia,cLoteDest)

por isso:

//para estorno passar o 15o. paraetro com .T.
a260Processa(cCodOrig,cLocOrig,nQuant260,cDocto,dEmis260,nQuant260D,cNumLote,cLoteDigi,dDtValid,cNumSerie,cLoclzOrig,cCodDest,cLocDest,cLocLzDest,lEstorno,nRecOrig,nRecDest,cPrograma,cEstFis,cServico,cTarefa,cAtividade,cAnomalia,cEstDest,cEndDest,cHrInicio,cAtuEst,cCarga,cUnitiza,cOrdTar,cOrdAti,cRHumano,cRFisico,nPotencia,cLoteDest)

deve funcionar.
Quando é função padrão, não precisa colocar o function no começo, é só chamar direto.

Valeu Kanaãm! Vou testar.


Atc,
Henry

Kanaãm, preciso de sua ajuda!

Executei a rotina a260Processa, quando ela chega nesse insert(Print anexo). Acontece o erro, o foda é que não tenho esse r_e_c_n_o_ ainda na minha base. Não estou conseguindo entender o porque, executei o insert pelo sql para ver e realmente deu o erro

INSERT INTO SB2010(B2_FILIAL, B2_COD, B2_LOCAL, B2_TIPO, R_E_C_N_O_) VALUES('01', '061110610402', '303', '1', 7256)




Atc,
henry

Não tem o RECNO?
Esse campo é padrão, sempre é criado, porém não aparece nos dicionários de dados.

Qual erro ocorre?
Talvez seja o caso de fazer um backup da SB2 e deixar o sistema criar de novo