LJCHEQUE - Consulta ou impressão de cheque

Esse ponto de entrada é chamado antes da impressão do cheque. Pode ser utilizado para o cliente fazer alguma consulta ou a própria impressão do cheque. 

Modelo similar a tela padrão.

#Include "PROTHEUS.CH"
#define STR0024  "Impressão de cheques"
#define STR0025  "Insira o cheque número: "
#define STR0026  "Banco: "
#define STR0027  "Agência: "
#define STR0028  "Conta: "
#define STR0029  " - Valor  : "
#define STR0035  "Aguarde a impressão do cheque..."

User Function LJCHEQUE()

Local OdlgCheque
Local nOpc
Local nRet := 1
Local lImprimiu := .F.
Local cBanco :=ParamIXB[1]
Local nValor :=ParamIXB[2]
Local cFavorec :=ParamIXB[3]
Local dEmissao :=ParamIXB[4]
Local cObs :=ParamIXB[5]
Local cVerso :=ParamIXB[6]
Local cCheque :=ParamIXB
Local cConta :=ParamIXB[8]  

DEFINE MSDIALOG oDlgCheque TITLE OemToAnsi(STR0024) FROM 96,42 TO 230,285 PIXEL // "Impressão de cheques"
@ 03,03 TO 048,117 PIXEL
@ 13,06 SAY OemToAnsi(STR0025 + cCheque) OF oDlgCheque PIXEL SIZE  105,10 // "Insira o cheque n£mero: "
@ 23,06 SAY OemToAnsi(STR0026 + cBanco + STR0027 + cAgencia) OF oDlgCheque PIXEL SIZE 105,10 // "Banco:" / "- Agência: "
@ 33,06 SAY OemToAnsi(STR0028 + cConta + STR0029 + Alltrim(Str(nValor,14,2))) OF oDlgCheque PIXEL SIZE 105,10 // "Conta: " / " - Valor  : "
DEFINE SBUTTON FROM 53,55 TYPE 1 ENABLE OF oDlgCheque ACTION (nOpc:=1,oDlgCheque:End())
DEFINE SBUTTON FROM 53,90 TYPE 2 ENABLE OF oDlgCheque ACTION oDlgCheque:End()
ACTIVATE DIALOG oDlgCheque CENTERED

If nOpc == 1
Alltrim(cFavorec)+=' - '+SA1->A1_COD
// "Aguarde a impressão do cheque..."
LJMsgRun(OEMToAnsi(STR0035),, {|| nRet := CHImprime( nHdlCH, cBanco, StrZero(nValor,12,2), cFavorec, cCidade, DTOS(dEmissao), cObs, cVerso )})
lImprimiu := Iif( nRet==0,.T.,.F. )
EndIf

Return {.F.,lImprimiu}

.PRW

LJCHEQUE - Consulta ou impressão de cheque ( < UPAR> ) --> URET

URET(qualquer)
• Um array contendo: [1] - Lógico. Indica se o SIGALOJA deve ou não fazer a impressão do cheque / [2] - Lógico. Indica se o cheque foi ou não impresso no ponto de entrada.

Descrição do parâmetro:

cBanco,@nValor,@cFavorec,@dEmissao,@cObs,@cVerso
Sendo:
cBanco = Número do banco.
nValor = Valor do cheque.
cFavorec = Favorecido do cheque. Por default, ‚ o nome da empresa que está cadastrado no SIGAMAT.EMP.
dEmissao = Data de emissão do cheque.
cObs = Observações.
cVerso = Informações a serem impressas no verso do cheque. (Nem todas as impressoras aceitam impressão no verso).
cCheque = Número do cheque.
cConta = Número da conta.