Código: Selecionar todos
**************************************************************************
*PEDIDO.PRG SISTEMA DE CONTROLE ADMINISTRATIVO *
*****************************************************************************
#Include 'JR.CH'
//----------------- INCLUSAO DE PEDIDOS PARA FATURAMENTO -----------------//
FUNCTION InclPed()
LOCAL GetList := {}, bSaida := .f., agetlist, bEnviar, tTelcpl
LOCAL cRealdig, cProcura := "", cTelaa:=savenv(0,0,24,79), nPosbom := 1, nColBomba
LOCAL aEstrutura := {}, nTentativa, tTelbloq, cUnipro, cNumeracao, nVias, cGrade
LOCAL cFormato := 0, cPapel, cObs1, cObs2, cObs3, cObs4, cObs5, bCarga, nTotbru
LOCAL tTelespera, nAuxPG, nCalc, cPreco, nCol, aMatriz := { {},{},{},{} }
LOCAL oTempVenda := 0, oTempProd, oColuna, cNomven, nA, cAuxx
Private cNoment, cEndent, cCident, cRefent, cPlaent, dDtaent, cResent, ccodpro, cTipcartao
Private cCodped := space(06), bLimite, cCidcli, cEndcli, bCheckout, bLote, bPosto, cnDigEnc
Private FD:=0, buffer, cNomcli:="", aFormpag := {{},{}},cEstCli:="PA",nDiafix,nDiapag,nDiaacr, cAltpreco := "N"
Private cNatope, noppag, nPreTot := 0.00, nPreTot2 := 0.00, cPrazo:=" ", bCupom, cCarga
Private nValPago := 0.00, nNtrib := 0.00, cCodven := " ", cTotnota, cSetorCli := " ", nQtdebomba, tPedid
Private cPlavei := space(8), cKm := space(6), cFrota := space(6), cCodcli, cCgccli, cInscli
Private nQtepro, cEntra_val, cEntra_ven, cCaixa, dDtabase, nPeracre, cCupomFiscal
Private cPess_FJ := " ", nDesc:=0.00, cMensagem, cVenPzo_sn, nValentrada, bImprimir
Private cAliq, cErro1, cErro2, cNumnot := space(6), cOppag, nValTroca, ntotdev:=0.00, cNroNFCE := space(09)
Private cNum := "01", nValBalanca, cMostven,nTroco, cPegAbastec, bGerafin := .f.
Private bLig01 := .t., bDes01 := .t.,bLig02 := .t., bDes02 := .t., bLig03 := .t., bDes03 := .t.
Private bLig04 := .t., bDes04 := .t.,bLig05 := .t., bDes05 := .t., bLig06 := .t., bDes06 := .t.
Private bLig07 := .t., bDes07 := .t.,bLig08 := .t., bDes08 := .t., bLig09 := .t., bDes09 := .t.
Private aPrazo := { {},{},{},{},{} }, bConfChq, bAtivaPf, nQte, nVlr, nMostra := 1,nComp := 0.00
Private nLarg := 0.00, nQtepc:= 0.00, nQtevend := 0.00, cTEF_SN := "N", cLibNFCe := "N", cTPedPen
Private lCod, bPrecoEspecial := .f., cObs := space(40), nIcmEmp, bEspera := .f.,tProTela, cQual := "2"
Private cCor, cAvisapro, nValori := 0.00, nValUni := 0.00, bCGCCupom := .f., cMarmoraria := "N"
Private aTempvenda[''], cSat := "N", cMPastaACBR := "N"
desk(x_corcabec)
telapadrao()
AADD(aEStrutura, {"ITEM ", "C", 4, 0}) &&& Se Acrencentar
AADD(aEStrutura, {"CODPRO ", "C", 7, 0}) &&& Campo
AADD(aEstrutura, {"NOMPRO ", "C", 40, 0}) && lembrar de o Alt+R
AADD(aEstrutura, {"SAIU ", "L", 1, 0})
AADD(aEstrutura, {"GRADE ", "C", 20, 0})
AADD(aEstrutura, {"UNIPRO ", "C", 2, 0})
AADD(aEstrutura, {"BOMBA ", "C", 2, 0})
AADD(aEstrutura, {"NUMERACAO ", "C", 6, 0})
AADD(aEstrutura, {"HORA ", "C", 8, 0})
AADD(aEstrutura, {"VIAS ", "C", 5, 0})
AADD(aEstrutura, {"FORMATO ", "C", 2, 0})
AADD(aEstrutura, {"PAPEL ", "C", 5, 0})
AADD(aEstrutura, {"COR ", "C", 6, 0})
AADD(aEstrutura, {"QTEPRO ", "N", 9, 3})
AADD(aEstrutura, {"VALPRO ", "N", 12, 4})
AADD(aEstrutura, {"VALORI ", "N", 12, 4})
AADD(aEstrutura, {"VALREAL ", "N", 12, 4})
AADD(aEstrutura, {"VALDES ", "N", 12, 4})
AADD(aEstrutura, {"TOTAL ", "N", 12, 4})
AADD(aEstrutura, {"ICMPRO ", "N", 2, 0})
AADD(aEstrutura, {"QTEENT ", "N", 9, 3})
AADD(aEstrutura, {"CODVEN ", "C", 2, 0})
AADD(aEstrutura, {"OBS1 ", "C", 70, 0})
AADD(aEstrutura, {"OBS2 ", "C", 70, 0})
AADD(aEstrutura, {"OBS3 ", "C", 70, 0})
AADD(aEstrutura, {"OBS4 ", "C", 70, 0})
AADD(aEstrutura, {"OBS5 ", "C", 70, 0})
AADD(aEstrutura, {"CARTAO ", "C", 5, 0})
AADD(aEstrutura, {"PESPECIAL ", "L", 1, 0})
AADD(aEstrutura, {"TABPRECO ", "L", 1, 0})
AADD(aEstrutura, {"CODCLI ", "C", 7, 0})
AADD(aEstrutura, {"CODPED ", "C", 6, 0})
AADD(aEstrutura, {"LARG ", "N", 12, 4})
AADD(aEstrutura, {"COMP ", "N", 12, 4})
AADD(aEstrutura, {"QTEPC ", "N", 12, 4})
AADD(aEstrutura, {"QTEVEND ", "N", 12, 4})
nTecla := 0 && bSenlim,