Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

NomeTipoDescriçãoObrigatório
cClassifCaractere

Classificação de operação a ser utilizada na integração com o SIGAGFE

Sim

06. VERSÕES

Protheus 12.1.17 ou superiores.

07. OBSERVAÇÃO

...

dbSelectArea("DK1")
DK1→ (dbSetOrder(1))
If DK1→ (dbSeek(xFilial("DK1")+ cCodRegi+cCodViag))
          While DK1->(!Eof()) .AND. xFilial("DK1") == DK1->DK1_FILIAL .AND. DK1->DK1_REGID == cCodRegi .AND. DK1->DK1_VIAGID == cCodViag
                          IF DK1→ DK1_FILPED == "01001"
                                     cClassif := cClasFrg
                                     exit
                         EndIF
                         DK1-> DK1→(DbSkip())
          EndDo
EndIF

...