Perguntas pe M460MARK

#include "rwmake.ch"

User Function M460MARK()

//****************************************************************
//* Inicia a variavel para informacao *
//****************************************************************
Public _nVlFrete := 0
Public _cTranspo := Space(6)
Public _dDtSaida := dDataBase
Public _ctipFre := Space(1)
Public _cPlaca := Space(7)

If SM0->M0_CODIGO $ "01/05/95/"


@ 250,50 To 440,265 DIALOG oDlg1 TITLE "Informacoes"
@ 05,10 Say "Transportadora "
@ 05,55 Get _cTranspo Size 40,08 F3 "ZZV"
@ 20,10 Say "Placa "
@ 20,55 Get _cPlaca Size 40,08 When .F.
@ 35,10 Say "Valor do Frete "
@ 35,55 Get _nVlFrete Picture "@R 99,999.99"
@ 50,10 Say "Tipo Frete(1/2)"
@ 50,55 Get _cTipFre SIZE 10,1
@ 65,10 Say "Data de Saida "
@ 65,55 Get _dDtSaida SIZE 40,08 valid dt_saida()
@ 80,70 BMPBUTTON TYPE 1 ACTION Close(oDlg1)
ACTIVATE DIALOG oDlg1 CENTER


EndIf
Return(.T.)


Static Function dt_saida()
Local lRet := .T.
If DtoS(_dDtSaida) < DtoS(dDataBase)
MsgAlert("Data inferior a Data Base do sistema","A T E N C A O ! ! !")
lRet := .F.
EndIf

Return(lRet)



From: Alessandro Farias
Sent: Tuesday, January 18, 2011 1:11 AM
To: <!-- e --><a href="Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.">Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.</a><!-- e -->
Subject: Re: [siga-br] exemplo PE M460MARK-itens na geração da NF


Pesquise no fórum que vc vai achar, pois eu Ja postei esse pe varias vezes.
Nao mando agora porque estou sem ele no momento, mas fique tranquilo que tem solução.

[]s
Alessandro Farias
81-9281-8768

Em 17/01/2011, às 13:49, &quot;Altair Teixeira&quot; &lt;altair@tecnotron.ind.br&gt; escreveu:

Alguém tem um modelo do pe M460MARK ? preciso evitar o faturamento de itens com C9_GRUPO diferentes entre si.

sds