A085PRECH - Informa prefixo para o cheque -- 109012

Este Ponto de Entrada somente será executado se existir o Ponto de Entrada A085ANUM (permite informar manualmente um número para o cheque).O ponto de entrada A085PRECH permite informar um prefixo para o cheque gerado, ao utilizar o tipo de pagamento "Débito Diferido" na rotina Ordem de Pago. É necessário informar um prefixo para o cheque, sempre que utilizar o Ponto de Entrada A085ANUM, para que não ocorra problemas de chave duplicada ao gravar o registro do cheque na tabela SE2 - Contas a Pagar, nos casos em que existir um cheque com o mesmo número para o mesmo fornecedor, mas de bancos diferentes .  

FINA085A.PRW

A085PRECH - Informa prefixo para o cheque ( [ cNumChq ], [ cFornece ], [ cLoja ], [ cBanco ], [ cAgencia ], [ cConta ] ) --> cPrefixo

cPrefixo(caracter)
• Prefixo que do título de Cheque(CH) a ser gravado na tabela SE - Contas a Pagar

User Function A085PRECH()Local aArea:= GetArea()Local cPrefixo:= "001"dbSelectArea("SE2")SE2->(dbSetOrder(1))SE2->(dbGotop())If SE2->(dbSeek(xFilial("SE2") + cPrefixo + Paramixb[1] + space(TamSX3("E2_PARCELA")[1]) + "CH " + Paramixb[2] + Paramixb[3]))  	cPrefixo:= Soma1(cPrefixo)EndIf   RestArea(aArea)Return cPrefixo